home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / ImageMaster_d3.adf / piarc.lzh.parta / iraw.rexx < prev    next >
OS/2 REXX Batch file  |  1993-04-14  |  3KB  |  132 lines
  1. /*
  2.  * IRAW.rexx   - I-raw is a 'chunky' graphics format used on
  3.  *               DEC VAX platforms, and as an interchange image format
  4.  *               between VAX graphics and Intel based machines.
  5.  *
  6.  *  Written by: Barry Chalmers
  7.  * Last Update: March 25th, 1993
  8.  *    Revision: 1.02
  9.  *         For: Black Belt Systems image processing series IM, IM F/c, and IP.
  10.  * ---------------------------------------------------------------------------
  11.  *    Revision: 1.01 - see ReadMe file for details on changes to this level
  12.  *
  13.  *        1.02  25 Mar 1993  (BC)  Did not report on insufficient memory for
  14.  *                                 new buffer from IM prior to 9.51
  15.  */
  16. parse arg var1
  17. call pragma('stack',20000);
  18.  
  19. /*
  20.  * open rexxsupport.library -- needed for some functions
  21.  */
  22. if ~show('L',"rexxsupport.library") then do
  23.   if addlib('rexxsupport.library',0,-30,0) then do
  24.       /* everything's ok */
  25.     end;
  26.   else do
  27.     say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
  28.     say 'Cannot operate  without this library - sorry!';
  29.     exit 10;
  30.     end;
  31.   end;
  32.  
  33.  
  34.   /*
  35.    * This code attempts to read a file called "picmdpath" from REXX:
  36.    * If it can't find it, the script will assume that the commands
  37.    * associated with this PI Module are in "c:". If the file exists,
  38.    * the script will look in the path that is specified in the file.
  39.    * If you create this file, you MUST put a complete, correct path
  40.    * in it; if the commands are in a sub-directory, you have to put
  41.    * the trailing slash on the path (like, device:dir/).
  42.    * 
  43.    */
  44.   cmdpath = 'c:';
  45.   if open(fhandle,'rexx:picmdpath','read') then  /* open the file */
  46.     do
  47.       cmdpath = readln(fhandle);
  48.       call close(fhandle);  /* close the file    */
  49.     end
  50.  
  51. prtnme = 'IM_Port';
  52. address(prtnme);
  53.  
  54. if var1 = 'load' then do
  55.   pick = 1;
  56.   end
  57. else if var1 = 'save' then do
  58.   pick = 2;
  59.   end
  60. else do
  61.   options results;
  62.   'gadgets "Load","I-raw","Save","I-raw"';
  63.   pick = result;
  64.   options;
  65.   end;
  66.  
  67. if pick=0 then do
  68.   exit 0;
  69.   end;
  70.  
  71. path = 'ram:';
  72. name = '';
  73. ext  = '';
  74.  
  75. if pick = 1 then do
  76.   options results;
  77.   'filerequest "'||path||'","'||name||'","'||ext||'","Load I-raw"';
  78.   irawfile = result;
  79.   options;
  80.  
  81.   if irawfile = 'FR_CANCELLED' then do
  82.     address(prtnme);
  83.     'imtofront';
  84.     exit 0;
  85.     end;
  86.  
  87.   address(prtnme);
  88.   options results;
  89.   'jackin';
  90.   jackadr = result;
  91.   options;
  92.  
  93.   
  94.   address(prtnme);
  95.   options results;
  96.   'jackin';
  97.   jackadr = result;
  98.   options;
  99.  
  100.   address command cmdpath||'iraw '||jackadr||' 0 '||irawfile;
  101.   address(prtnme);
  102.   'redraw'
  103.   
  104.     exit 0;
  105.   end;
  106. if pick = 2 then do
  107.   options results;
  108.   'filerequest "'||path||'","'||name||'","'||ext||'","Save I-raw"';
  109.   irawfile = result;
  110.   options;
  111.  
  112.   if irawfile = 'FR_CANCELLED' then do
  113.     address(prtnme);
  114.     'imtofront';
  115.     exit 0;
  116.     end;
  117.  
  118.   address(prtnme);
  119.   options results;
  120.   'jackin';
  121.   jackadr = result;
  122.   options;
  123.  
  124.   address command cmdpath||'iraw '||jackadr||' 1 '||irawfile;
  125.  
  126.     exit 0;
  127.   end;
  128. exit 0;
  129. end;
  130.  
  131. /* The end */
  132.